home *** CD-ROM | disk | FTP | other *** search
/ Diccionario Visual Trilingue / VISUAL.iso / SHARED.DIR / 10059_Help screen.ls < prev    next >
Encoding:
Text File  |  1997-07-04  |  4.2 KB  |  163 lines
  1. global gScreenStatus, gReturnHelp, gTransitionType, gInterfaceLanguage, gLstAnimHS, gPictureOnly, gReturnDialog, gFreeSprite, glstNavigInfo, glstCurrentArrow
  2.  
  3. on showAide HelpGrid
  4.   set gReturnHelp to gScreenStatus
  5.   if (gScreenStatus = #ILLUSTRATION) or (gScreenStatus = #ZOOM) or (gScreenStatus = #REGION) then
  6.     FlushAllAnimationsData()
  7.     ResetActiveLabels()
  8.     ResetScreenLists()
  9.   end if
  10.   set gScreenStatus to #HELP
  11.   GoHelpGrid()
  12.   ClearCursor()
  13. end
  14.  
  15. on GoHelpGrid
  16.   repeat with n = 3 to 6
  17.     set the cursor of sprite n to 4
  18.   end repeat
  19.   watchCursor()
  20.   addRAMobjects(#CASTRANGE, [11986, 11994])
  21.   GrabStage()
  22.   ResetFrameChannels()
  23.   gotoframe(37, 0)
  24.   PlaceInScore([320, 463], 11915, 3)
  25.   set the locH of sprite 1 to 320
  26.   set the locV of sprite 1 to 240
  27.   set TempNum to 11982 + gInterfaceLanguage
  28.   addRAMobjects(#CastList, [TempNum])
  29.   set the castNum of sprite 1 to TempNum
  30.   puppetTransition(gTransitionType)
  31.   updateStage()
  32.   puppetTransition(0)
  33.   ClearCursor()
  34. end
  35.  
  36. on GoHelpScreen ScreenCastNum
  37.   watchCursor()
  38.   GrabStage()
  39.   ResetFrameChannels()
  40.   gotoframe(35, 0)
  41.   PlaceInScore([272, 463], 11915, 3)
  42.   PlaceInScore([304, 463], 11917, 4)
  43.   PlaceInScore([336, 463], 11919, 5)
  44.   PlaceInScore([368, 463], 11921, 6)
  45.   set the locH of sprite 1 to 320
  46.   set the locV of sprite 1 to 240
  47.   set the castNum of sprite 1 to ScreenCastNum
  48.   addRAMobjects(#CastList, [ScreenCastNum])
  49.   puppetTransition(gTransitionType)
  50.   updateStage()
  51.   puppetTransition(0)
  52.   ClearCursor()
  53. end
  54.  
  55. on PushButton2 SpriteNo, ButtonRect, castNumHighlight
  56.   set Selected to 1
  57.   set the castNum of sprite SpriteNo to castNumHighlight
  58.   set the locH of sprite SpriteNo to getAt(ButtonRect, 1) - 3
  59.   set the locV of sprite SpriteNo to getAt(ButtonRect, 2) - 1
  60.   updateStage()
  61.   repeat while the mouseDown
  62.     if inside(point(the mouseH, the mouseV), ButtonRect) then
  63.       if not Selected then
  64.         set the visible of sprite SpriteNo to 1
  65.         updateStage()
  66.         set Selected to 1
  67.       end if
  68.       next repeat
  69.     end if
  70.     if Selected then
  71.       set the visible of sprite SpriteNo to 0
  72.       updateStage()
  73.       set Selected to 0
  74.     end if
  75.   end repeat
  76.   set the castNum of sprite SpriteNo to 10001
  77.   set the visible of sprite SpriteNo to 1
  78.   updateStage()
  79.   return Selected
  80. end
  81.  
  82. on nextAide
  83.   repeat with n = 3 to 6
  84.     set the cursor of sprite n to 4
  85.   end repeat
  86.   watchCursor()
  87.   puppetTransition(gTransitionType)
  88.   set CastNumber to the castNum of sprite 1
  89.   if ((CastNumber - 11933) mod 18) = 0 then
  90.     set TempNum to CastNumber - 10
  91.     addRAMobjects(#CastList, [TempNum])
  92.     set the castNum of sprite 1 to TempNum
  93.   else
  94.     set TempNum to CastNumber + 1
  95.     addRAMobjects(#CastList, [TempNum])
  96.     set the castNum of sprite 1 to TempNum
  97.   end if
  98.   updateStage()
  99.   puppetTransition(0)
  100.   repeat with n = 3 to 6
  101.     SpriteHandCursor(n)
  102.   end repeat
  103.   ClearCursor()
  104. end
  105.  
  106. on PrevAide
  107.   repeat with n = 3 to 6
  108.     set the cursor of sprite n to 4
  109.   end repeat
  110.   watchCursor()
  111.   puppetTransition(gTransitionType)
  112.   set CastNumber to the castNum of sprite 1
  113.   if ((CastNumber - 11922) mod 18) = 1 then
  114.     set TempNum to CastNumber + 10
  115.     addRAMobjects(#CastList, [TempNum])
  116.     set the castNum of sprite 1 to TempNum
  117.   else
  118.     set TempNum to CastNumber - 1
  119.     addRAMobjects(#CastList, [TempNum])
  120.     set the castNum of sprite 1 to TempNum
  121.   end if
  122.   updateStage()
  123.   puppetTransition(0)
  124.   repeat with n = 3 to 6
  125.     SpriteHandCursor(n)
  126.   end repeat
  127.   ClearCursor()
  128. end
  129.  
  130. on retourAide
  131.   repeat with n = 3 to 6
  132.     set the cursor of sprite n to 4
  133.   end repeat
  134.   watchCursor()
  135.   GrabStage(0)
  136.   if (gReturnHelp = #Index) or (gReturnHelp = #Language) or (gReturnHelp = #PREFERENCES) then
  137.     if gReturnDialog = #CONTENU then
  138.       ShowContenu(1)
  139.     else
  140.       if gReturnDialog = #ILLUSTRATION then
  141.         set gFreeSprite to 48
  142.         gotoframe(1)
  143.         puppetTransition(gTransitionType)
  144.         PrepareScreen(glstNavigInfo, 1)
  145.       else
  146.         set gFreeSprite to 48
  147.         gotoframe(1)
  148.         GetNavigInfo(glstCurrentArrow)
  149.       end if
  150.     end if
  151.     if gReturnHelp = #Index then
  152.       ShowIndex()
  153.     else
  154.       if gReturnHelp = #Language then
  155.         ShowLanguagePalette(1)
  156.       end if
  157.     end if
  158.   else
  159.     ReCreateScreen(gReturnHelp)
  160.   end if
  161.   ClearCursor()
  162. end
  163.